input str20 decision float decfraction_w decfraction_s
        assapprov  0.59    0.36 
        assborrow  0.64    0.36 
        eqtapprov  0.09    0.05 
        liqapprov  0.14    0.0  
        div        0.77    0.73 
        end

gen extra = decfraction_w-decfraction_s
gen total = decfraction_s + extra

label var decfraction_s "Exclusive"
label var extra "Joint"

graph hbar (asis) decfraction_s extra, ///
      over(decision, relabel(1 "Acquisitions/sales" 2 "Borrowing" 3 "Dividends" 4 "Equity issues" 5 "Liquidation") sort(total) descending ) stack ///
      title("Exclusive and joint authority")  ///
      ytitle("Fraction of boards")  ///
      bar(1, color(maroon)) ///
      bar(2, color(dkorange)) ///
      yscale(range(0(0.10)1.0))  ///
      saving(BMO_figure2,replace)
graph export .\Output\BMO_figure2.pdf, as(pdf) or(landscape) replace 



